home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ADV350.ZIP / bug.for < prev    next >
Encoding:
Text File  |  1990-11-11  |  1.4 KB  |  32 lines
  1.       SUBROUTINE BUG(NUM)
  2.       IMPLICIT INTEGER*4 (A-Z)
  3.       
  4. C  THE FOLLOWING CONDITIONS ARE CURRENTLY CONSIDERED FATAL BUGS.  NUMBERS < 20
  5. C  ARE DETECTED WHILE READING THE DATABASE; THE OTHERS OCCUR AT "RUN TIME".
  6. C       0       MESSAGE LINE > 70 CHARACTERS
  7. C       1       NULL LINE IN MESSAGE
  8. C       2       TOO MANY WORDS OF MESSAGES
  9. C       3       TOO MANY TRAVEL OPTIONS
  10. C       4       TOO MANY VOCABULARY WORDS
  11. C       5       REQUIRED VOCABULARY WORD NOT FOUND
  12. C       6       TOO MANY RTEXT OR MTEXT MESSAGES
  13. C       7       TOO MANY HINTS
  14. C       8       LOCATION HAS COND BIT BEING SET TWICE
  15. C       9       INVALID SECTION NUMBER IN DATABASE
  16. C      20       SPECIAL TRAVEL (500>L>300) EXCEEDS GOTO LIST
  17. C      21       RAN OFF END OF VOCABULARY TABLE
  18. C      22       VOCABULARY TYPE (N/1000) NOT BETWEEN 0 AND 3
  19. C      23       INTRANSITIVE ACTION VERB EXCEEDS GOTO LIST
  20. C      24       TRANSITIVE ACTION VERB EXCEEDS GOTO LIST
  21. C      25       CONDITIONAL TRAVEL ENTRY WITH NO ALTERNATIVE
  22. C      26       LOCATION HAS NO TRAVEL ENTRIES
  23. C      27       HINT NUMBER EXCEEDS GOTO LIST
  24. C      28       INVALID MONTH RETURNED BY DATE FUNCTION
  25.  
  26.       WRITE(*,1) NUM
  27.     1 FORMAT(/' FATAL ERROR, SEE SOURCE CODE FOR INFORMATION.'/
  28.      1        ' PROBABLE CAUSE: ERRONEOUS INFO IN DATABASE.'/
  29.      2        ' ERROR CODE =',I2/)
  30.       STOP
  31.       END
  32.